home *** CD-ROM | disk | FTP | other *** search
/ William Shakespeare - The Complete Works / William Shakespeare - The Complete Works on CD-ROM.iso / library / line / lines.bas < prev    next >
Encoding:
BASIC Source File  |  1994-05-22  |  556 b   |  25 lines
  1. OPEN "list.txt" FOR INPUT AS #1
  2. DO
  3. LINE INPUT #1, filename$
  4. OPEN filename$ FOR INPUT AS #2
  5. file2$ = MID$(filename$, 1, LEN(filename$) - 3) + "nos"
  6. OPEN file2$ FOR OUTPUT AS #3
  7. PRINT filename$
  8. DO
  9. LINE INPUT #2, a$
  10. 'IF INSTR(a$, "Act") THEN a$ = "xxx"
  11. FOR a = 1 TO LEN(a$)
  12. chr = ASC(MID$(a$, a, 1))
  13. IF chr > 65 THEN a = 1000
  14. IF chr = ASC(",") THEN PRINT #3, "": PRINT
  15. IF chr >= ASC("0") AND chr <= ASC("9") THEN PRINT #3, CHR$(chr); : PRINT CHR$(chr);
  16.  
  17. NEXT a
  18. PRINT #3, ""
  19. PRINT
  20. LOOP UNTIL EOF(2)
  21. CLOSE #2
  22. CLOSE #3
  23. LOOP UNTIL EOF(1)
  24.  
  25.